(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     79597,       2525]
NotebookOptionsPosition[     77494,       2453]
NotebookOutlinePosition[     77841,       2468]
CellTagsIndexPosition[     77798,       2465]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  SuperscriptBox["r", "2"], "=", 
  RowBox[{
   SuperscriptBox["x", "2"], "+", 
   SuperscriptBox["y", "2"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["r", "x"], "=", 
  RowBox[{
   FractionBox["x", "r"], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "t", "]"}]}], "r"], "=", 
    RowBox[{"Cos", "[", "t", "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["r", "y"], "=", 
  RowBox[{
   FractionBox["y", "r"], "=", 
   RowBox[{"Sin", "[", "t", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   SubscriptBox["t", "x"], " ", "=", " ", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"], "y"}], 
      SuperscriptBox["x", "2"]]}], "=", " ", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"Sin", "[", "t", "]"}], "r"]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["t", "y"], "=", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Cos", "[", "t", "]"}], "2"], "x"], "=", 
    FractionBox[
     RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["u", "x"], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["u", "r"], " ", 
      SubscriptBox["r", "x"]}], "+", 
     RowBox[{
      SubscriptBox["u", "t"], " ", 
      SubscriptBox["t", "x"]}]}], " ", "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["u", "r"], 
      RowBox[{"Cos", "[", "t", "]"}]}], "-", 
     RowBox[{
      SubscriptBox["u", "t"], 
      FractionBox[
       RowBox[{"Sin", "[", "t", "]"}], "r"]}]}]}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["u", "y"], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["u", "r"], " ", 
      SubscriptBox["r", "y"]}], "+", 
     RowBox[{
      SubscriptBox["u", "t"], " ", 
      SubscriptBox["t", "y"]}]}], " ", "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["u", "r"], 
      RowBox[{"Sin", "[", "t", "]"}]}], "+", 
     RowBox[{
      SubscriptBox["u", "t"], 
      FractionBox[
       RowBox[{"Cos", "[", "t", "]"}], "r"]}]}]}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["u", "xx"], "=", 
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["u", "r"], 
       RowBox[{"Cos", "[", "t", "]"}]}], "-", 
      RowBox[{
       SubscriptBox["u", "t"], 
       FractionBox[
        RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], " ", " ", ")"}], "x"], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["u", "r"], 
          RowBox[{"Cos", "[", "t", "]"}]}], "-", 
         RowBox[{
          SubscriptBox["u", "t"], 
          FractionBox[
           RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], " ", ")"}], "r"], 
      RowBox[{"Cos", "[", "t", "]"}]}], "-", 
     RowBox[{
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["u", "r"], 
          RowBox[{"Cos", "[", "t", "]"}]}], "-", 
         RowBox[{
          SubscriptBox["u", "t"], 
          FractionBox[
           RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], " ", ")"}], "t"], 
      FractionBox[
       RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], " ", "=", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["u", "rr"], 
          RowBox[{"Cos", "[", "t", "]"}]}], "-", 
         RowBox[{
          SubscriptBox["u", "rt"], 
          FractionBox[
           RowBox[{"Sin", "[", "t", "]"}], "r"]}], "+", 
         RowBox[{
          SubscriptBox["u", "t"], 
          FractionBox[
           RowBox[{"Sin", "[", "t", "]"}], 
           SuperscriptBox["r", "2"]]}]}], " ", ")"}], 
       RowBox[{"Cos", "[", "t", "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["u", "rt"], 
          RowBox[{"Cos", "[", "t", "]"}]}], "-", 
         RowBox[{
          SubscriptBox["u", "r"], 
          RowBox[{"Sin", "[", "t", "]"}]}], "-", 
         RowBox[{
          SubscriptBox["u", "tt"], 
          FractionBox[
           RowBox[{"Sin", "[", "t", "]"}], "r"]}], "-", 
         RowBox[{
          SubscriptBox["u", "t"], 
          FractionBox[
           RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], " ", ")"}], 
       FractionBox[
        RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], " ", "=", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SubscriptBox["u", "rr"], 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{
       SubscriptBox["u", "tt"], 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"], 
        SuperscriptBox["r", "2"]]}], "-", 
      RowBox[{"2", 
       SubscriptBox["u", "rt"], 
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[", "t", "]"}], 
         RowBox[{"Sin", "[", "t", "]"}]}], "r"]}], " ", "+", 
      RowBox[{
       SubscriptBox["u", "r"], 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"], "r"]}], "+", 
      RowBox[{"2", 
       SubscriptBox["u", "t"], 
       FractionBox[
        RowBox[{
         RowBox[{"Sin", "[", "t", "]"}], 
         RowBox[{"Cos", "[", "t", "]"}]}], 
        SuperscriptBox["r", "2"]]}]}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["u", "yy"], "=", 
   RowBox[{
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["u", "r"], 
        RowBox[{"Sin", "[", "t", "]"}]}], "+", 
       RowBox[{
        SubscriptBox["u", "t"], 
        FractionBox[
         RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], " ", ")"}], "y"], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], " ", ")"}], "r"], 
       RowBox[{"Sin", "[", "t", "]"}]}], "+", 
      RowBox[{
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], " ", ")"}], "t"], 
       FractionBox[
        RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], "=", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rr"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "rt"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], 
            SuperscriptBox["r", "2"]]}]}], " ", ")"}], 
        RowBox[{"Sin", "[", "t", "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rt"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "tt"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], " ", ")"}], 
        FractionBox[
         RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], "=", 
      RowBox[{
       RowBox[{
        SubscriptBox["u", "rr"], 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        SubscriptBox["u", "tt"], 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Cos", "[", "t", "]"}], "2"], 
         SuperscriptBox["r", "2"]]}], "+", 
       RowBox[{"2", 
        SubscriptBox["u", "rt"], 
        FractionBox[
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], 
          RowBox[{"Sin", "[", "t", "]"}]}], "r"]}], "-", 
       RowBox[{"2", 
        SubscriptBox["u", "t"], 
        FractionBox[
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], 
          RowBox[{"Sin", "[", "t", "]"}]}], 
         SuperscriptBox["r", "2"]]}], "+", 
       RowBox[{
        SubscriptBox["u", "r"], 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Cos", "[", "t", "]"}], "2"], "r"]}]}]}]}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox[
   RowBox[{"(", 
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}], 
     SubscriptBox["u", "x"]}], ")"}], "x"], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{"x", ",", "y"}], ")"}], 
        SubscriptBox["u", "x"]}], ")"}], "r"], 
     RowBox[{"Cos", "[", "t", "]"}]}], "-", 
    RowBox[{
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{"x", ",", "y"}], ")"}], 
        SubscriptBox["u", "x"]}], ")"}], "t"], 
     FractionBox[
      RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "r"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rr"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "rt"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], 
            SuperscriptBox["r", "2"]]}]}], ")"}]}]}], ")"}], 
     RowBox[{"Cos", "[", "t", "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "t"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
       RowBox[{"a", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rt"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "tt"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}]}]}], ")"}], 
     FractionBox[
      RowBox[{"Sin", "[", "t", "]"}], "r"]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox[
   RowBox[{"(", 
    RowBox[{"b", 
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}], 
     SubscriptBox["u", "y"]}], ")"}], "y"], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{"x", ",", "y"}], ")"}], 
        SubscriptBox["u", "y"]}], ")"}], "r"], 
     RowBox[{"Sin", "[", "t", "]"}]}], "+", 
    RowBox[{
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{"x", ",", "y"}], ")"}], 
        SubscriptBox["u", "y"]}], ")"}], "t"], 
     FractionBox[
      RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["b", "r"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rr"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "rt"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}]}], ")"}], 
     RowBox[{"Sin", "[", "t", "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["b", "t"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rt"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "tt"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}]}], ")"}], 
     FractionBox[
      RowBox[{"Cos", "[", "t", "]"}], 
      "r"]}]}]}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5972583805408*^9, 3.5972584039547997`*^9}, {
  3.5972584465648003`*^9, 3.5972586699337997`*^9}, {3.5972591426057997`*^9, 
  3.5972594164288*^9}, {3.5972594627418003`*^9, 3.5972595584328003`*^9}, {
  3.5972620391358*^9, 3.5972624294368*^9}, {3.5972624648398*^9, 
  3.5972624673258*^9}, {3.5972625741788*^9, 3.5972626404217997`*^9}, {
  3.5972626849958*^9, 3.5972627094308*^9}, {3.5972657716658*^9, 
  3.5972661007738*^9}, {3.5972661367567997`*^9, 3.5972661713188*^9}, {
  3.5972662078878*^9, 3.5972662080587997`*^9}, {3.5972662536918*^9, 
  3.5972663313648*^9}, {3.597334547612*^9, 3.597334594447*^9}, {
  3.597334683686*^9, 3.5973346891400003`*^9}, {3.597335325528*^9, 
  3.597335328946*^9}},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "r"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rr"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "rt"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], 
            SuperscriptBox["r", "2"]]}]}], ")"}]}]}], ")"}], 
     RowBox[{"Cos", "[", "t", "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "t"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
       RowBox[{"a", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rt"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "-", 
          RowBox[{
           SubscriptBox["u", "tt"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}]}]}], ")"}], 
     FractionBox[
      RowBox[{"Sin", "[", "t", "]"}], "r"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["b", "r"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rr"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "rt"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}]}], ")"}], 
     RowBox[{"Sin", "[", "t", "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["b", "t"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["u", "rt"], 
           RowBox[{"Sin", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "r"], 
           RowBox[{"Cos", "[", "t", "]"}]}], "+", 
          RowBox[{
           SubscriptBox["u", "tt"], 
           FractionBox[
            RowBox[{"Cos", "[", "t", "]"}], "r"]}], "-", 
          RowBox[{
           SubscriptBox["u", "t"], 
           FractionBox[
            RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}]}], ")"}], 
     FractionBox[
      RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], "//", "FullSimplify"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5973346144*^9, 3.5973346157980003`*^9}, {
  3.597334652949*^9, 3.597334679075*^9}, {3.597335059039*^9, 
  3.5973352017320004`*^9}, {3.597335239948*^9, 3.597335322644*^9}, {
  3.597335367667*^9, 3.5973353682720003`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox["r", "2"]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"r", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{"r", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["a", "r"]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"Sin", "[", "t", "]"}], " ", 
           SubscriptBox["b", "r"]}], "+", 
          RowBox[{
           RowBox[{"Cos", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["a", "t"]}], "+", 
             SubscriptBox["b", "t"]}], ")"}]}]}], ")"}]}]}], ")"}], " ", 
     SubscriptBox["u", "r"]}], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
     SubscriptBox["u", "rr"]}], "-", 
    RowBox[{"2", " ", "a", " ", "r", " ", 
     RowBox[{"Cos", "[", "t", "]"}], " ", 
     RowBox[{"Sin", "[", "t", "]"}], " ", 
     SubscriptBox["u", "rt"]}], "+", 
    RowBox[{"b", " ", "r", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"2", " ", "t"}], "]"}], " ", 
     SubscriptBox["u", "rt"]}], "-", 
    RowBox[{"b", " ", 
     RowBox[{"Cos", "[", "t", "]"}], " ", 
     RowBox[{"Sin", "[", "t", "]"}], " ", 
     SubscriptBox["u", "t"]}], "-", 
    RowBox[{"b", " ", "r", " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
     SubscriptBox["u", "t"]}], "-", 
    RowBox[{"r", " ", 
     RowBox[{"Cos", "[", "t", "]"}], " ", 
     RowBox[{"Sin", "[", "t", "]"}], " ", 
     SubscriptBox["a", "r"], " ", 
     SubscriptBox["u", "t"]}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
     SubscriptBox["a", "t"], " ", 
     SubscriptBox["u", "t"]}], "+", 
    RowBox[{"r", " ", 
     RowBox[{"Cos", "[", "t", "]"}], " ", 
     RowBox[{"Sin", "[", "t", "]"}], " ", 
     SubscriptBox["b", "r"], " ", 
     SubscriptBox["u", "t"]}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
     SubscriptBox["b", "t"], " ", 
     SubscriptBox["u", "t"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
     SubscriptBox["u", "tt"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.597334622408*^9, 3.597334660248*^9, 3.597334729209*^9, 
  3.597335374539*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"ArcTan", "[", 
    FractionBox["y", "x"], "]"}], ",", "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"Tan", "[", "t", "]"}], ",", "t"}], "]"}], "\[Equal]", 
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "2"]]}]}], "Input",
 CellChangeTimes->{{3.5972586733258*^9, 3.5972587866008*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["y", 
   RowBox[{
    SuperscriptBox["x", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       SuperscriptBox["y", "2"], 
       SuperscriptBox["x", "2"]]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.5972587037678003`*^9, {3.5972587385508003`*^9, 3.5972587875638*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.5972587037678003`*^9, {3.5972587385508003`*^9, 3.5972587875718*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"ArcTan", "[", "t", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5972589366188*^9, 3.5972589496788*^9}}],

Cell[BoxData[
 FractionBox["1", 
  SqrtBox[
   RowBox[{"1", "+", 
    SuperscriptBox["t", "2"]}]]]], "Output",
 CellChangeTimes->{3.5972589505218*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SubscriptBox["u", "rr"], 
         SuperscriptBox[
          RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         SubscriptBox["u", "tt"], 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", "t", "]"}], "2"], 
          SuperscriptBox["r", "2"]]}], "-", 
        RowBox[{"2", 
         SubscriptBox["u", "rt"], 
         FractionBox[
          RowBox[{
           RowBox[{"Cos", "[", "t", "]"}], 
           RowBox[{"Sin", "[", "t", "]"}]}], "r"]}], " ", "+", 
        RowBox[{
         SubscriptBox["u", "r"], 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", "t", "]"}], "2"], "r"]}], "+", 
        RowBox[{"2", 
         SubscriptBox["u", "t"], 
         FractionBox[
          RowBox[{
           RowBox[{"Sin", "[", "t", "]"}], 
           RowBox[{"Cos", "[", "t", "]"}]}], 
          SuperscriptBox["r", "2"]]}]}], ")"}]}], "+", 
     RowBox[{"b", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SubscriptBox["u", "rr"], 
         SuperscriptBox[
          RowBox[{"Sin", "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         SubscriptBox["u", "tt"], 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Cos", "[", "t", "]"}], "2"], 
          SuperscriptBox["r", "2"]]}], "+", 
        RowBox[{"2", 
         SubscriptBox["u", "rt"], 
         FractionBox[
          RowBox[{
           RowBox[{"Cos", "[", "t", "]"}], 
           RowBox[{"Sin", "[", "t", "]"}]}], "r"]}], "-", 
        RowBox[{"2", 
         SubscriptBox["u", "t"], 
         FractionBox[
          RowBox[{
           RowBox[{"Cos", "[", "t", "]"}], 
           RowBox[{"Sin", "[", "t", "]"}]}], 
          SuperscriptBox["r", "2"]]}], "+", 
        RowBox[{
         SubscriptBox["u", "r"], 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Cos", "[", "t", "]"}], "2"], "r"]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["a", "r"], " ", "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["b", "r"], " ", "-", " ", 
           SubscriptBox["a", "r"]}], ")"}]}], " ", "+", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"Cos", "[", "t", "]"}], " ", 
           RowBox[{"Sin", "[", "t", "]"}], "  "}], "r"], 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["b", "t"], "-", 
           SubscriptBox["a", "t"]}], ")"}]}]}], ")"}], " ", 
      SubscriptBox["u", "r"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          SubscriptBox["a", "t"], " "}], 
         SuperscriptBox["r", "2"]], "+", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", "t", "]"}], "2"], " "}], 
          SuperscriptBox["r", "2"]], 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["b", "t"], " ", "-", 
           SubscriptBox["a", "t"]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["a", "r"], "+", 
           SubscriptBox["b", "r"]}], ")"}], 
         FractionBox[
          RowBox[{
           RowBox[{"Cos", "[", "t", "]"}], " ", 
           RowBox[{"Sin", "[", "t", "]"}], "  "}], "r"]}]}], ")"}], 
      SubscriptBox["u", "t"]}], "-", 
     RowBox[{"\[Sigma]", " ", "u"}]}], "\[Equal]", "f"}], ",", 
   SubscriptBox["u", "rr"]}], "]"}]], "Input",
 CellChangeTimes->{{3.5972663784048*^9, 3.5972663943138*^9}, {
  3.5972698727658*^9, 3.5972698948938*^9}, {3.5972699557808*^9, 
  3.5972700487468*^9}, {3.5972701187868*^9, 3.5972701205558*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["u", "rr"], "\[Rule]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
         RowBox[{"b", " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", " ", 
        SuperscriptBox["r", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", "u", " ", "\[Sigma]"}], "-", 
       RowBox[{"b", " ", "r", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["u", "r"]}], "-", 
       RowBox[{"a", " ", "r", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["u", "r"]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SubscriptBox["a", "r"], " ", 
        SubscriptBox["u", "r"]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["a", "r"], " ", 
        SubscriptBox["u", "r"]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SubscriptBox["a", "t"], " ", 
        SubscriptBox["u", "r"]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["b", "r"], " ", 
        SubscriptBox["u", "r"]}], "-", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SubscriptBox["b", "t"], " ", 
        SubscriptBox["u", "r"]}], "+", 
       RowBox[{"2", " ", "a", " ", "r", " ", 
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SubscriptBox["u", "rt"]}], "-", 
       RowBox[{"2", " ", "b", " ", "r", " ", 
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SubscriptBox["u", "rt"]}], "-", 
       RowBox[{"2", " ", "a", " ", 
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SubscriptBox["u", "t"]}], "+", 
       RowBox[{"2", " ", "b", " ", 
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SubscriptBox["u", "t"]}], "-", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SubscriptBox["a", "r"], " ", 
        SubscriptBox["u", "t"]}], "-", 
       RowBox[{
        SubscriptBox["a", "t"], " ", 
        SubscriptBox["u", "t"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["a", "t"], " ", 
        SubscriptBox["u", "t"]}], "-", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SubscriptBox["b", "r"], " ", 
        SubscriptBox["u", "t"]}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["b", "t"], " ", 
        SubscriptBox["u", "t"]}], "-", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["u", "tt"]}], "-", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
        SubscriptBox["u", "tt"]}]}], ")"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.5972700211758003`*^9, 3.5972700507688*^9}, {
  3.5972701223058*^9, 3.5972701315928*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"f", "+", 
      RowBox[{"u", " ", "\[Sigma]"}]}], 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["a", "r"], " ", "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["b", "r"], " ", "-", " ", 
          SubscriptBox["a", "r"]}], ")"}]}], " ", "+", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], " ", 
          RowBox[{"Sin", "[", "t", "]"}], "  "}], "r"], 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["b", "t"], "-", 
          SubscriptBox["a", "t"]}], ")"}]}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"b", "  ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "t", "]"}], "2"]}], " ", "+", 
         RowBox[{"a", "  ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], 
        RowBox[{"r", " "}]]}], ")"}], " ", 
     SubscriptBox["u", "r"]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{
          SubscriptBox["a", "t"], 
          SuperscriptBox[
           RowBox[{"Sin", "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          SubscriptBox["b", "t"], 
          SuperscriptBox[
           RowBox[{"Cos", "[", "t", "]"}], "2"], " "}]}], 
        SuperscriptBox["r", "2"]], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["a", "r"], "+", 
          SubscriptBox["b", "r"]}], ")"}], 
        FractionBox[
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], " ", 
          RowBox[{"Sin", "[", "t", "]"}], "  "}], "r"]}], "+", 
       FractionBox[
        RowBox[{"2", 
         RowBox[{"(", " ", 
          RowBox[{"a", " ", "-", " ", "b"}], " ", ")"}], 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         RowBox[{"Sin", "[", "t", "]"}], " "}], 
        RowBox[{
         SuperscriptBox["r", "2"], " "}]]}], ")"}], 
     SubscriptBox["u", "t"]}], "+", 
    FractionBox[
     RowBox[{"2", 
      RowBox[{"(", " ", 
       RowBox[{"a", "   ", "-", " ", "b"}], ")"}], 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], 
      SubscriptBox["u", "rt"]}], 
     RowBox[{"r", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "t", "]"}], "2"]}], " ", "+", 
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], " ", ")"}], 
      SubscriptBox["u", "tt"]}], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]]}], "==", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", " ", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", "u", " ", "\[Sigma]"}], "-", 
      RowBox[{"b", " ", "r", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
       SubscriptBox["u", "r"]}], "-", 
      RowBox[{"a", " ", "r", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
       SubscriptBox["u", "r"]}], "-", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SubscriptBox["a", "r"], " ", 
       SubscriptBox["u", "r"]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
       SubscriptBox["a", "r"], " ", 
       SubscriptBox["u", "r"]}], "+", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       SubscriptBox["a", "t"], " ", 
       SubscriptBox["u", "r"]}], "-", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
       SubscriptBox["b", "r"], " ", 
       SubscriptBox["u", "r"]}], "-", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       SubscriptBox["b", "t"], " ", 
       SubscriptBox["u", "r"]}], "+", 
      RowBox[{"2", " ", "a", " ", "r", " ", 
       RowBox[{"Cos", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       SubscriptBox["u", "rt"]}], "-", 
      RowBox[{"2", " ", "b", " ", "r", " ", 
       RowBox[{"Cos", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       SubscriptBox["u", "rt"]}], "-", 
      RowBox[{"2", " ", "a", " ", 
       RowBox[{"Cos", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       SubscriptBox["u", "t"]}], "+", 
      RowBox[{"2", " ", "b", " ", 
       RowBox[{"Cos", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       SubscriptBox["u", "t"]}], "-", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       SubscriptBox["a", "r"], " ", 
       SubscriptBox["u", "t"]}], "-", 
      RowBox[{
       SubscriptBox["a", "t"], " ", 
       SubscriptBox["u", "t"]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
       SubscriptBox["a", "t"], " ", 
       SubscriptBox["u", "t"]}], "-", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       SubscriptBox["b", "r"], " ", 
       SubscriptBox["u", "t"]}], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
       SubscriptBox["b", "t"], " ", 
       SubscriptBox["u", "t"]}], "-", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
       SubscriptBox["u", "tt"]}], "-", 
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
       SubscriptBox["u", "tt"]}]}], ")"}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5972728322628*^9, 3.5972728551748*^9}, {
  3.5972729658428*^9, 3.5972729817508*^9}, {3.5972736398368*^9, 
  3.5972736661378*^9}, {3.5972737898768*^9, 3.5972738046558*^9}, {
  3.5972738841728*^9, 3.5972741651118*^9}, {3.5972743933908*^9, 
  3.5972744224908*^9}, {3.5972744912158003`*^9, 3.5972745126948*^9}, {
  3.5972745595948*^9, 3.5972745974628*^9}, {3.5972746858557997`*^9, 
  3.5972747173468*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.5972740814477997`*^9, 3.5972741669838*^9, 3.5972744273168*^9, 
   3.5972745199648*^9, {3.5972745709698*^9, 3.5972745989908*^9}, 
   3.5972747260928*^9, 3.5972896813828*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"b", "  ", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "t", "]"}], "2"]}], " ", "+", 
     RowBox[{"a", "  ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], 
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
     RowBox[{"b", " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], "\[Equal]", "b"}], "//", 
  "Reduce"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"b", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"a", " ", 
      SuperscriptBox["y", "2"]}]}], 
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"b", " ", 
      SuperscriptBox["y", "2"]}]}]], "\[Equal]", "b"}], "//", 
  "Reduce"}]}], "Input",
 CellChangeTimes->{{3.5972741969248*^9, 3.5972742824158*^9}, {
   3.5972743422068*^9, 3.5972743448838*^9}, {3.5972901909547997`*^9, 
   3.5972902103958*^9}, {3.5972902541577997`*^9, 3.5972903965288*^9}, {
   3.5972904651018*^9, 3.5972904714428*^9}, 3.5972905617628*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], "\[Equal]", "0"}], "&&", 
    RowBox[{"b", "\[Equal]", "0"}], "&&", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"Cos", "[", "t", "]"}]}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "b"}], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"]}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{"a", "\[Equal]", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "b"}], " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["b", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "b"}], " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "b"}], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "4"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "4"]}]}], "\[NotEqual]", "0"}]}], 
   ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "t", "]"}]}]}], "||", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}]}]}], "||", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"Sin", "[", "t", "]"}]}]}], "||", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"Sin", "[", "t", "]"}]}]}], ")"}], "&&", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{"b", "\[Equal]", 
     SuperscriptBox[
      RowBox[{"Tan", "[", "t", "]"}], "2"]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "4"]}], "+", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "4"]}], "\[NotEqual]", "0"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.5972741992258*^9, 3.5972742133438*^9}, {
   3.5972742636148*^9, 3.5972742833968*^9}, 3.5972743455657997`*^9, {
   3.5972902046568003`*^9, 3.5972902124898*^9}, 3.5972903017008*^9, 
   3.5972904737348003`*^9, 3.5972905631778*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"y", "\[Equal]", "0"}], "&&", 
    RowBox[{"b", "\[Equal]", "0"}], "&&", 
    RowBox[{
     RowBox[{"a", " ", "x"}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"b", " ", 
       SuperscriptBox["x", "2"]}], "-", 
      SuperscriptBox["y", "2"]}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{"a", "\[Equal]", 
     FractionBox[
      RowBox[{
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["b", "2"], " ", 
        SuperscriptBox["y", "2"]}]}], 
      RowBox[{
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       SuperscriptBox["y", "2"]}]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{"b", " ", 
       SuperscriptBox["x", "4"]}], "-", 
      RowBox[{"b", " ", 
       SuperscriptBox["y", "4"]}]}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"y", "\[NotEqual]", "0"}], "&&", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "\[Equal]", 
       RowBox[{"-", "y"}]}], "||", 
      RowBox[{"x", "\[Equal]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "y"}]}], "||", 
      RowBox[{"x", "\[Equal]", 
       RowBox[{"\[ImaginaryI]", " ", "y"}]}], "||", 
      RowBox[{"x", "\[Equal]", "y"}]}], ")"}], "&&", 
    RowBox[{"x", "\[NotEqual]", "0"}], "&&", 
    RowBox[{"b", "\[Equal]", 
     FractionBox[
      SuperscriptBox["y", "2"], 
      SuperscriptBox["x", "2"]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox["x", "4"]}], "+", 
      SuperscriptBox["y", "4"]}], "\[NotEqual]", "0"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.5972741992258*^9, 3.5972742133438*^9}, {
   3.5972742636148*^9, 3.5972742833968*^9}, 3.5972743455657997`*^9, {
   3.5972902046568003`*^9, 3.5972902124898*^9}, 3.5972903017008*^9, 
   3.5972904737348003`*^9, 3.5972905632967997`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"f", " ", 
      SuperscriptBox["r", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", "u", " ", "\[Sigma]"}], "-", 
     RowBox[{"b", " ", "r", " ", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["u", "r"]}], "-", 
     RowBox[{"a", " ", "r", " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["u", "r"]}], "-", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SubscriptBox["a", "r"], " ", 
      SubscriptBox["u", "r"]}], "+", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["a", "r"], " ", 
      SubscriptBox["u", "r"]}], "+", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      SubscriptBox["a", "t"], " ", 
      SubscriptBox["u", "r"]}], "-", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["b", "r"], " ", 
      SubscriptBox["u", "r"]}], "-", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      SubscriptBox["b", "t"], " ", 
      SubscriptBox["u", "r"]}], "+", 
     RowBox[{"2", " ", "a", " ", "r", " ", 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      SubscriptBox["u", "rt"]}], "-", 
     RowBox[{"2", " ", "b", " ", "r", " ", 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      SubscriptBox["u", "rt"]}], "-", 
     RowBox[{"2", " ", "a", " ", 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      SubscriptBox["u", "t"]}], "+", 
     RowBox[{"2", " ", "b", " ", 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      SubscriptBox["u", "t"]}], "-", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      SubscriptBox["a", "r"], " ", 
      SubscriptBox["u", "t"]}], "-", 
     RowBox[{
      SubscriptBox["a", "t"], " ", 
      SubscriptBox["u", "t"]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["a", "t"], " ", 
      SubscriptBox["u", "t"]}], "-", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      SubscriptBox["b", "r"], " ", 
      SubscriptBox["u", "t"]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["b", "t"], " ", 
      SubscriptBox["u", "t"]}], "-", 
     RowBox[{"b", " ", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["u", "tt"]}], "-", 
     RowBox[{"a", " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["u", "tt"]}]}], ")"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.5972728681528*^9, 3.5972728801828003`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["f", 
   RowBox[{
    RowBox[{"a", " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
    RowBox[{"b", " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], "+", 
  FractionBox[
   RowBox[{"u", " ", "\[Sigma]"}], 
   RowBox[{
    RowBox[{"a", " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
    RowBox[{"b", " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], "-", 
  FractionBox[
   RowBox[{"b", " ", 
    SuperscriptBox[
     RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["u", "r"]}], 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"a", " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["u", "r"]}], 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["a", "r"], " ", 
    SubscriptBox["u", "r"]}], 
   RowBox[{
    RowBox[{"a", " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
    RowBox[{"b", " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["a", "r"], " ", 
    SubscriptBox["u", "r"]}], 
   RowBox[{
    RowBox[{"a", " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
    RowBox[{"b", " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["a", "t"], " ", 
    SubscriptBox["u", "r"]}], 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["b", "r"], " ", 
    SubscriptBox["u", "r"]}], 
   RowBox[{
    RowBox[{"a", " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
    RowBox[{"b", " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["b", "t"], " ", 
    SubscriptBox["u", "r"]}], 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["u", "rt"]}], 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", 
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["u", "rt"]}], 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["u", "t"]}], 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", 
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["u", "t"]}], 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["a", "r"], " ", 
    SubscriptBox["u", "t"]}], 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["a", "t"], " ", 
    SubscriptBox["u", "t"]}], 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["a", "t"], " ", 
    SubscriptBox["u", "t"]}], 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["b", "r"], " ", 
    SubscriptBox["u", "t"]}], 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["b", "t"], " ", 
    SubscriptBox["u", "t"]}], 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"b", " ", 
    SuperscriptBox[
     RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["u", "tt"]}], 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]], "-", 
  FractionBox[
   RowBox[{"a", " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["u", "tt"]}], 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.5972728737658*^9, 3.5972728806238003`*^9}}],

Cell[BoxData[{
 RowBox[{
  SubscriptBox[
   RowBox[{"(", 
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}], 
     SubscriptBox["u", "x"]}], ")"}], "x"], "=", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "x"], 
    SubscriptBox["u", "x"]}], "+", 
   RowBox[{"a", " ", 
    SubscriptBox["u", "xx"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox[
   RowBox[{"(", 
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}], 
     SubscriptBox["u", "y"]}], ")"}], "y"], "=", 
  RowBox[{
   RowBox[{
    SubscriptBox["b", "y"], 
    SubscriptBox["u", "y"]}], "+", 
   RowBox[{"b", " ", 
    SubscriptBox["u", "yy"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{"x", ",", "y"}], ")"}], 
      SubscriptBox["u", "x"]}], ")"}], "x"], "+", 
   SubscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{"x", ",", "y"}], ")"}], 
      SubscriptBox["u", "y"]}], ")"}], "y"]}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["a", "x"], 
     SubscriptBox["u", "x"]}], "+", 
    RowBox[{"a", " ", 
     SubscriptBox["u", "xx"]}], "+", 
    RowBox[{
     SubscriptBox["b", "y"], 
     SubscriptBox["u", "y"]}], "+", 
    RowBox[{"b", " ", 
     SubscriptBox["u", "yy"]}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"a", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SubscriptBox["u", "r"], "r"], "+", 
        SubscriptBox["u", "rr"], "+", 
        FractionBox[
         SubscriptBox["u", "tt"], 
         SuperscriptBox["r", "2"]]}], ")"}]}], "+", 
     RowBox[{
      SubscriptBox["a", "x"], 
      SubscriptBox["u", "x"]}], "+", 
     RowBox[{
      SubscriptBox["b", "y"], 
      SubscriptBox["u", "y"]}]}], "=", 
    RowBox[{
     RowBox[{
      FractionBox[
       SubscriptBox["u", "r"], "r"], "+", 
      SubscriptBox["u", "rr"], "+", 
      FractionBox[
       SubscriptBox["u", "tt"], 
       SuperscriptBox["r", "2"]], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["a", "r"], 
          RowBox[{"Cos", "[", "t", "]"}]}], "-", 
         RowBox[{
          SubscriptBox["a", "t"], 
          FractionBox[
           RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["u", "r"], 
          RowBox[{"Cos", "[", "t", "]"}]}], "-", 
         RowBox[{
          SubscriptBox["u", "t"], 
          FractionBox[
           RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["b", "r"], 
          RowBox[{"Sin", "[", "t", "]"}]}], "+", 
         RowBox[{
          SubscriptBox["b", "t"], 
          FractionBox[
           RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["u", "r"], 
          RowBox[{"Sin", "[", "t", "]"}]}], "+", 
         RowBox[{
          SubscriptBox["u", "t"], 
          FractionBox[
           RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}]}]}], "=", 
     RowBox[{
      RowBox[{
       FractionBox[
        SubscriptBox["u", "r"], "r"], "+", 
       SubscriptBox["u", "rr"], "+", 
       FractionBox[
        SubscriptBox["u", "tt"], 
        SuperscriptBox["r", "2"]], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
           SubscriptBox["a", "r"]}], " ", "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
           SubscriptBox["b", "r"]}], " ", "+", 
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"Cos", "[", "t", "]"}], " ", 
             RowBox[{"Sin", "[", "t", "]"}], "  "}], "r"], 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["b", "t"], "-", 
             SubscriptBox["a", "t"]}], ")"}]}]}], ")"}], " ", 
        SubscriptBox["u", "r"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
            SubscriptBox["a", "t"], " "}], 
           SuperscriptBox["r", "2"]], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
            SubscriptBox["b", "t"], " "}], 
           SuperscriptBox["r", "2"]], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["a", "r"], "+", 
             SubscriptBox["b", "r"]}], ")"}], 
           FractionBox[
            RowBox[{
             RowBox[{"Cos", "[", "t", "]"}], " ", 
             RowBox[{"Sin", "[", "t", "]"}], "  "}], "r"]}]}], ")"}], 
        SubscriptBox["u", "t"]}]}], "=", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox[
        SubscriptBox["u", "r"], "r"], "+", 
       SubscriptBox["u", "rr"], "+", 
       FractionBox[
        SubscriptBox["u", "tt"], 
        SuperscriptBox["r", "2"]], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["a", "r"], " ", "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["b", "r"], " ", "-", " ", 
             SubscriptBox["a", "r"]}], ")"}]}], " ", "+", 
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"Cos", "[", "t", "]"}], " ", 
             RowBox[{"Sin", "[", "t", "]"}], "  "}], "r"], 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["b", "t"], "-", 
             SubscriptBox["a", "t"]}], ")"}]}]}], ")"}], " ", 
        SubscriptBox["u", "r"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SubscriptBox["a", "t"], " "}], 
           SuperscriptBox["r", "2"]], "+", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"Cos", "[", "t", "]"}], "2"], " "}], 
            SuperscriptBox["r", "2"]], 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["b", "t"], " ", "-", 
             SubscriptBox["a", "t"]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["a", "r"], "+", 
             SubscriptBox["b", "r"]}], ")"}], 
           FractionBox[
            RowBox[{
             RowBox[{"Cos", "[", "t", "]"}], " ", 
             RowBox[{"Sin", "[", "t", "]"}], "  "}], "r"]}]}], ")"}], 
        SubscriptBox["u", "t"], "\[IndentingNewLine]"}]}]}]}]}]}]}]}], "Input",
 CellChangeTimes->{{3.5972664350788*^9, 3.5972665573998003`*^9}, {
   3.5972666754908*^9, 3.5972667815748*^9}, {3.5972668848498*^9, 
   3.5972669363518*^9}, {3.5972669809528*^9, 3.5972670232418003`*^9}, {
   3.5972670635438004`*^9, 3.5972671372167997`*^9}, {3.5972677942858*^9, 
   3.5972678159948*^9}, {3.5972681078758*^9, 3.5972681273798*^9}, 
   3.5972682400748*^9, {3.5972697113858*^9, 3.5972697159208*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "r"], 
        RowBox[{"Cos", "[", "t", "]"}]}], "-", 
       RowBox[{
        SubscriptBox["a", "t"], 
        FractionBox[
         RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["u", "r"], 
        RowBox[{"Cos", "[", "t", "]"}]}], "-", 
       RowBox[{
        SubscriptBox["u", "t"], 
        FractionBox[
         RowBox[{"Sin", "[", "t", "]"}], "r"]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["b", "r"], 
        RowBox[{"Sin", "[", "t", "]"}]}], "+", 
       RowBox[{
        SubscriptBox["b", "t"], 
        FractionBox[
         RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["u", "r"], 
        RowBox[{"Sin", "[", "t", "]"}]}], "+", 
       RowBox[{
        SubscriptBox["u", "t"], 
        FractionBox[
         RowBox[{"Cos", "[", "t", "]"}], "r"]}]}], ")"}]}]}], "//", 
   "FullSimplify"}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.5972668017368*^9, 3.5972668351478*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
   SubscriptBox["a", "r"], " ", 
   SubscriptBox["u", "r"]}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["a", "t"], " ", 
    SubscriptBox["u", "r"]}], "r"], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
   SubscriptBox["b", "r"], " ", 
   SubscriptBox["u", "r"]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["b", "t"], " ", 
    SubscriptBox["u", "r"]}], "r"], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["a", "r"], " ", 
    SubscriptBox["u", "t"]}], "r"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["a", "t"], " ", 
    SubscriptBox["u", "t"]}], 
   SuperscriptBox["r", "2"]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], " ", 
    RowBox[{"Sin", "[", "t", "]"}], " ", 
    SubscriptBox["b", "r"], " ", 
    SubscriptBox["u", "t"]}], "r"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
    SubscriptBox["b", "t"], " ", 
    SubscriptBox["u", "t"]}], 
   SuperscriptBox["r", "2"]]}]], "Output",
 CellChangeTimes->{{3.5972668044758*^9, 3.5972668381468*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
     SubscriptBox["a", "r"]}], " ", "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
     SubscriptBox["b", "r"]}]}], "==", 
   RowBox[{
    SubscriptBox["a", "r"], " ", "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["b", "r"], " ", "-", " ", 
       SubscriptBox["a", "r"]}], ")"}]}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5972680197427998`*^9, 3.5972680921408*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.5972680384737997`*^9, 3.5972680930218*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["a", "t"], " "}], 
     SuperscriptBox["r", "2"]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"Cos", "[", "t", "]"}], "2"], " ", 
      SubscriptBox["b", "t"], " "}], 
     SuperscriptBox["r", "2"]]}], "==", 
   RowBox[{
    FractionBox[
     RowBox[{
      SubscriptBox["a", "t"], " "}], 
     SuperscriptBox["r", "2"]], "+", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Cos", "[", "t", "]"}], "2"], " "}], 
      SuperscriptBox["r", "2"]], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["b", "t"], " ", "-", 
       SubscriptBox["a", "t"]}], ")"}]}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5972681577138*^9, 3.5972682198798*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.5972681798958*^9, 3.5972682210538*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"DSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"r", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{
         RowBox[{"u", "'"}], "[", "r", "]"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["r", "2"]}], ")"}], " ", 
        RowBox[{
         RowBox[{"u", "''"}], "[", "r", "]"}]}]}], ")"}]}], "==", "0"}], ",", 
   RowBox[{"u", "[", "r", "]"}], ",", 
   RowBox[{"{", "r", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.597348417816*^9, 3.597348475573*^9}, {
  3.5973485176400003`*^9, 3.597348581535*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"u", "[", "r", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"C", "[", "2", "]"}], "+", 
     RowBox[{
      RowBox[{"C", "[", "1", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", "r", "]"}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Log", "[", 
          RowBox[{"1", "+", 
           SuperscriptBox["r", "2"]}], "]"}]}]}], ")"}]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.597348442151*^9, 3.597348476915*^9}, {3.597348521341*^9,
    3.597348535686*^9}, 3.597348582851*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Log", "[", "r", "]"}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       SuperscriptBox["r", "2"]}], "]"}]}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"Log", "[", "r", "]"}], "-", 
    RowBox[{"Log", "[", 
     SqrtBox[
      RowBox[{"1", "+", 
       SuperscriptBox["r", "2"]}]], "]"}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5973486154779997`*^9, 3.597348639072*^9}, {
  3.597348679409*^9, 3.597348691624*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.597348633526*^9, 3.597348639644*^9}, 3.597348692389*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Log", "[", 
  FractionBox["r", 
   SqrtBox[
    RowBox[{"1", "+", 
     SuperscriptBox["r", "2"]}]]], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.597348804869*^9, 3.597348856175*^9}, {3.597349781104*^9,
    3.597349863756*^9}, {3.597354484722*^9, 3.597354510999*^9}, {
   3.59735457745*^9, 3.597354599301*^9}, {3.597354720332*^9, 
   3.597354758526*^9}, {3.597354806898*^9, 3.59735481717*^9}, {
   3.597354895001*^9, 3.597354895738*^9}, 3.597354945418*^9}],

Cell[BoxData[
 RowBox[{"4", "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["r", "2"]}]}]], "Output",
 CellChangeTimes->{3.5973488579779997`*^9, 3.597349866612*^9, 
  3.597354512406*^9, 3.597354762881*^9, 3.597354818929*^9, 3.597354896773*^9}],

Cell[BoxData[
 RowBox[{"4", "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["y", "2"]}]}]], "Output",
 CellChangeTimes->{3.5973488579779997`*^9, 3.597349866612*^9, 
  3.597354512406*^9, 3.597354762881*^9, 3.597354818929*^9, 3.597354896783*^9}],

Cell[BoxData[
 RowBox[{"4", "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["r", "2"]}]}]], "Output",
 CellChangeTimes->{3.5973488579779997`*^9, 3.597349866612*^9, 
  3.597354512406*^9, 3.597354762881*^9, 3.597354818929*^9, 3.59735489679*^9}],

Cell[BoxData[
 RowBox[{"4", "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["y", "2"]}]}]], "Output",
 CellChangeTimes->{3.5973488579779997`*^9, 3.597349866612*^9, 
  3.597354512406*^9, 3.597354762881*^9, 3.597354818929*^9, 3.597354896796*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "4"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", 
         RowBox[{"8", "b"}]], "-", 
        FractionBox["1", "b"]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "b"], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         SuperscriptBox["r", "4"], "2"], "+", 
        SuperscriptBox["r", "2"]}], ")"}]}], "+", 
     RowBox[{"C", " ", 
      RowBox[{"Log", "[", 
       RowBox[{"2", "r"}], "]"}]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"b", "\[Rule]", "1000"}], ",", 
      RowBox[{"C", "\[Rule]", "0.1"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.597443766877*^9, 3.597443826454*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3k8lIkDx/FxJFGO1v4qR1K05UptulRfpaIabZHERha5dgthlQ7M4qdQ
7ZomKfcQBsOYSa4eV+5rZp5SEZLkGD21Qmlj7R+f1+f11nH1tTkjTaPRLsz3
37+VdOsHTcXjhlpNqrFuMREuX/zDtRVM8Gqn7wR+4hH6ln9G8/yYUKlnS52O
4hGiSN+R7gYmTA6JZtTVeYSujCHH+Pfb2JvOaGs5UETUf2MbkyIWIh41L1jv
ySUWT7BMtWPvwuuoe+7ZtBxCsDGIZfXmLk7JaBNvJ7IJZz/baf8diaAZSfan
W2UT3HHl0rrhRJiv97DP/5xF2AxH7/TZfx+/ZY5VX/dnEwmvQiwEs8mgnfCg
NwSnEHs0Hdi9dino3zRS84tDMjHquHWBfH4K1ikmXlPbnUSslFx0yzdKxfKM
Fa2hKvcIX+8terSeVKxaa+5Z3MUilrpzszO3pSPsdRUnpD6OOOmQxv3wkQ3a
pJ7b+TcWBNV9XCFdPRO0bMZTudg1iHKWP2NrMW/jhIHei9YodvNVf8j8zxUJ
I1FuUDq3K/LS1ixU+ZrHHcwOwhPGC0e5Kw/Q38iwCdoRhU15qnKa8rk4Wfsk
xod9G03GT1zaTHKx/K3dVel9LLgUXSi/6pALP0euecYAC3EP+/xe5+aiX0px
saJWAoar8ruzrDnIjhMKaqMSkfz0YNHG+Dx8jt8QZmKSAsW58FOWK7mgP7L8
u3IyAwne9s6GB7jgN1Wqbd/Khi5p6KJ6jgs/I8E7lwts7M7pcuuu5KLul7l3
pV/YKM1hCUqMC8EOFrIffM7EuK2k4nB7IVSW3tmuMfwAdtl3WgKW8KCZ2Niu
9xcH950YdA8dHmR/tphJbOZgYOnZtpOmPARGMYxE0nnwvbK3Y5cTD63P4hui
z+fhms24aGE+D/LcxyZ6P+Wj8p+9L+/Ri8EmJmujvxVA79j74doYPtSS9CVK
K4qgHmq5wzONj6pkBnP6xyKo5KfGKJTwkXvHV63uSBFm5G2Njw3w4TJnELko
ogidVSUBvdsEiC1r9qaPFyHEJHz281sBDJ+FKA6U8dCurKZmbF4CfsN5U44F
H8Ht25HwqRSfpp/60L4vgZKx4G2TfBlcE/66O7iuBOw4k9ivmmVgRmm4lu4s
gZD+wwvn/WVYVRWmbepeAoMWtQA9VhmGlu9+HswrQV8DlcXbWo4pix1fd9Ef
wbI6U6ktpAJ8waEel6BSLOOr9kpJEUheFlitll6OhwMWrR07ayCnaZ8V0UKg
xidJw0FSh4/BG46uzq7G5NpdyvlnGzD6bpsbpV4L6S8cFQ29ZhyVrvnAY9Rh
y5zLQ9uCVtz0SjniwHuC1ojN7fX6HfhamHddubYe2rfGvuS874SVX1nLWXED
xqb7ep+aiNBs7d5Y9rgR7NHyZqUbYpif4KTp5DVBSesBNThI4tucGZEb2YxY
b4FHqu4zVP8EObd9LZgy5wx6hXah/irT+o+FrQjcVMf/X+1zzPn2/9hR3Iq+
groYoc5LiOxii0fd2/DVh7y3PqQbH/M0jqootMNgz8JZj/IeNLborVVNaodl
uo5n0bJeXPCXdfc37UCw1unVr0/1Qf5i12RhZQcMJXaKXdb9oDt6MBS0O/Gd
8gf5upl+1Md3XZN27YQscY+75v5rTLh2mm5I7sSvm8tfLDo8gNf9BpTyq05w
DrqmPp4awLmYdV4Jy4WYHFNXGWK9gbaXojv9iBACW0sZ5r5BJLZJmRdECRFq
FZnCHxrERHzF7YJSIXReHXqeEfkW7u7pU7tHhdixNYK5YtMQ9CamPX21RDi1
suOLlHgIBswpk1eHRZhsjhvwC3+HN1Y7PcjLIiTIOgfa6A7jCW9boX2OCN/1
CtKl64ax06LcekQswoIr4ce3+49A0hAUNkETg5bjzB1YOgqdMMVLM+vFOJ/I
jVtaM4rKDxY1Z+zEqDSIllc9NwbuWMi0XKgYqofOGzKUJHBaXDMokylGj1Gn
+GKFBPpNN72Pt4lRmAzdQedx5K5qtNrwtxhO3C2qWrPjmDXNH0z6nkRYZFp4
T+57OC/ZvueoGYn8Ya17SnQKKtz3ESInEtFJkS69RyjY3Fi78VdnEu4243oF
xyiMMlYLZU6T0KyoKLS2p6BU4CfZ7ELi+s2f62NdKWRMcW6xXEl4bbn7UeEi
hZi7LX/ae5JYHaFmtTCLQvvs5/93+pGY3XZ5SVc2BUZ1WJGnP4kX429EWRwK
1y9pdMzO+5Z9sdOBIgqq1+KHDANIzOnbBERWUHjWKYyKDiLRI7yZLCOmoHAi
48auEBKPoqbdxE8pXHa8PCOeN9Ps9PqM5xSM+m44+lwicTjTmL+3l8LLKe9p
1mUSZRfamsJHKKRpmbGpqyRYRqY3j0konBpazYsMJeE/cP+4DkXhkJk9XyOM
xDr6b31VnyjkyXJvW4aTkJUi2bemKawx7Qp8Ne9+gZmPywyF5952VgEMEhU+
GRtMvlFwnDNQWfQHiTvaipNzcxQyjzm1Js/7X363zYw=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 1}, {-0.07477084564932765, 0.32053346593354554`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5974437941070004`*^9, 3.5974438275030003`*^9}]
}, Open  ]]
},
WindowSize->{1014, 661},
WindowMargins->{{188, Automatic}, {Automatic, 102}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 15009, 490, 759, "Input"],
Cell[CellGroupData[{
Cell[15591, 514, 4272, 133, 197, "Input"],
Cell[19866, 649, 3062, 92, 92, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22965, 746, 417, 12, 83, "Input"],
Cell[23385, 760, 343, 11, 59, "Output"],
Cell[23731, 773, 124, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23892, 780, 151, 3, 31, "Input"],
Cell[24046, 785, 150, 5, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24233, 795, 3883, 119, 159, "Input"],
Cell[28119, 916, 3848, 105, 125, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32004, 1026, 7963, 234, 276, "Input"],
Cell[39970, 1262, 228, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40235, 1271, 1172, 36, 95, "Input"],
Cell[41410, 1309, 2821, 86, 98, "Output"],
Cell[44234, 1397, 1965, 59, 93, "Output"]
}, Open  ]],
Cell[46214, 1459, 3532, 101, 140, "Input"],
Cell[49749, 1562, 8166, 278, 245, "Output"],
Cell[57918, 1842, 7314, 230, 344, "Input"],
Cell[CellGroupData[{
Cell[65257, 2076, 1240, 43, 68, "Input"],
Cell[66500, 2121, 1526, 50, 86, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68063, 2176, 654, 21, 31, "Input"],
Cell[68720, 2199, 97, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68854, 2205, 899, 31, 50, "Input"],
Cell[69756, 2238, 91, 1, 31, "Output"]
}, Open  ]],
Cell[69862, 2242, 755, 23, 33, "Input"],
Cell[70620, 2267, 622, 19, 46, "Output"],
Cell[CellGroupData[{
Cell[71267, 2290, 548, 17, 48, "Input"],
Cell[71818, 2309, 110, 1, 31, "Output"]
}, Open  ]],
Cell[71943, 2313, 142, 5, 50, "Input"],
Cell[CellGroupData[{
Cell[72110, 2322, 378, 5, 52, "Input"],
Cell[72491, 2329, 240, 5, 31, "Output"],
Cell[72734, 2336, 298, 7, 31, "Output"],
Cell[73035, 2345, 239, 5, 31, "Output"],
Cell[73277, 2352, 298, 7, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73612, 2364, 843, 28, 50, "Input"],
Cell[74458, 2394, 3020, 56, 232, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
